home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Graphics / PerfectPaint / rexx / bridge / AppAnim.rx < prev    next >
Encoding:
Text File  |  2001-01-13  |  546 b   |  39 lines
  1. /*     arexx Script 
  2.     Make anim with pictures
  3. */
  4.  
  5.     options results
  6.     parse ARG Port count b
  7.     
  8.     ADDRESS value Port
  9.     file="Ram:MultiFile"
  10.     IF OPEN("g",file,"read") then DO
  11.         file=READLN("g")
  12.         pp_Load file
  13.         pp_MakeAnim count Preview
  14.         pp_CountFrames
  15.         count=result
  16.         Do i=1 to count-1
  17.             pp_FastNextFrame
  18.             file=READLN("g")
  19.             pp_Bload file
  20.             pp_GetWidthB
  21.             w=result
  22.             IF w=0 then DO
  23.                 EXIT
  24.             END
  25.             pp_GetHeightB
  26.             h=result
  27.             x=w/2
  28.             y=h/2
  29.             pp_Plot x y
  30.         END
  31.         CALL close(file)        
  32.         pp_GotoFrame 1
  33.     END
  34.     pp_FreeBrush
  35.     pp_PermitRefresh
  36.     
  37.  
  38.  
  39.